home *** CD-ROM | disk | FTP | other *** search
/ Ham Radio / Ham Radio CD-ROM (Emerald Software) (1995).ISO / misc / utilitys / wave-g.bas (.txt) < prev    next >
Encoding:
GW-BASIC  |  1980-01-01  |  1.9 KB  |  56 lines
  1. 10  REM PRECISION 5
  2. 20  PRINT: PRINT "PROGRAM FOR CALCULATING RECTANGULAR WAVEGUIDE"
  3. 30  PRINT "CHARATERISTICS AND WAVEGUIDE DIMENSIONS FOR THE DOMINANT"
  4. 35  PRINT:PRINT,"k2uyh --- modified for ibm pc --- wa2tif":PRINT
  5. 40  PRINT "TEM MODE."
  6. 50  PRINT:PRINT"WANT TO CALC. GUIDE CHAR (CHR),OR DIM (DIM)";:INPUT Q$
  7. 60  IF Q$="DIM" THEN 280
  8. 70  PRINT "         ---------------------------     "
  9. 80  PRINT "         |                         |
  10. 90  PRINT "         |                         | B "
  11. 100  PRINT"         |                         |  "
  12. 110  PRINT"         ---------------------------   "
  13. 120  PRINT"                     A                  "
  14. 130  PRINT:INPUT"WAVEGUIDE WIDTH A, IN CENT.";A
  15. 140  PRINT:INPUT"WAVEGUIDE HEIGHT B, IN CENT.";B
  16. 150  PRINT:INPUT"TEM MODE OF OPERATION M,N";C,D
  17. 160  W1=2/SQR((C/A)^2+(D/B)^2)
  18. 170  F1=30/W1
  19. 180  PRINT "WAVELENGTH CUTOFF =";W1"CENT"
  20. 190  PRINT "FREQUENCY CUTOFF =";F1"GHZ"
  21. 200  PRINT:INPUT"WHAT FREQ. (GHZ) WOULD YOU LIKE TO OPERATE AT";F3
  22. 210  W2=30/F3
  23. 220  Z1=377/SQR(1-(W2/W1)^2)
  24. 230  W3=W2/SQR(1-(W2/W1)^2)
  25. 240  PRINT "GUIDE CHAR. IMPEADANCE =";Z1"OHMS"
  26. 250  PRINT "GUIDE WAVELENGTH =";W3"CENT."
  27. 260  PRINT:PRINT"DO YOU WANT A HARD COPY? (Y/N)";:INPUT Q1$
  28. 270  IF Q1$="Y" THEN 430 ELSE END
  29. 280  PRINT:INPUT"WHAT IS CUTOFF FREQ. IN GHZ";F2
  30. 290  W4=30/F2
  31. 300  A1=W4/2
  32. 310  B1=A1/2
  33. 320  PRINT: PRINT"FOR THE TEM 1,0 MODE,"
  34. 330  PRINT "WAVEGUIDE WIDTH =";A1"CENT"
  35. 340  PRINT "WAVEGUIDE HEIGHT =";B1"CENT"
  36. 350  PRINT:INPUT"WHAT FREQ. (GHZ) WOULD YOU LIKE TO OPERATE AT";F4
  37. 360  W5=30/F4
  38. 370  Z2=377/SQR(1-(W5/W4)^2)
  39. 380  W6=W5/SQR(1-(W5/W4)^2)
  40. 390  PRINT "GUIDE CHAR. IMPEADANCE =";Z2"OHMS"
  41. 400  PRINT "GUIDE WAVELENGTH =";W6"CENT"
  42. 410  PRINT:PRINT"DO YOU WANT A HARD COPY? (Y/N)";:INPUT Q2$
  43. 420  IF Q2$="Y" THEN 490 ELSE END
  44. 430  LPRINT,"THE CHARACTERISTICS OF THE WAVEGUIDE ARE":LPRINT,
  45. 440  LPRINT,"WAVELENGTH CUTOFF =";W1"CENT"
  46. 450  LPRINT,"FREQUENCY CUTOFF =";F1"GHZ"
  47. 460  LPRINT,"GUIDE CHAR. IMPEADANCE =";Z1"OHMS"
  48. 470  LPRINT,"GUIDE WAVELENGTH =";W3"CENT":LPRINT,
  49. 480  END
  50. 490  LPRINT,"THE DIMENSIONS AND CHARACTERISTICS OF THE WAVEGUIDE ARE":LPRINT,
  51. 500  LPRINT,"WAVEGUIDE WIDTH =";A1"CENT"
  52. 510  LPRINT,"WAVEGUIDE HEIGHT =";B1"CENT"
  53. 520  LPRINT,"GUIDE CHAR. IMPEADANCE =";Z2"OHMS"
  54. 530  LPRINT,"GUIDE WAVELENGTH =";W6"CENT"
  55. 540  END
  56.